**# Bookmark #1 Setting

*Windows
global root  = "G:/Dropbox/Environmental Injustice/Empirical"
global rawdata = "$root/rawdata"
global workdata = "$root/workdata"
global results = "$root/results"
global outfile = "$root/outfile"

cd "$workdata"

**# Bookmark #2.1 Fig. S8(A)
use "$outfile/Fig. S8.dta",clear
	  
grmap belowhs ///
	using "$workdata/citylevel_map/china_city_coord", id(ID) ///
	fcolor("150 150 150" "247 251 255" "222 235 247" "198 219 239" "158 202 225" "107 174 214" "33 113 181" "black") ///
	ocolor("gray" ...) ///
	clmethod(custom) clbreaks(-2 40 50 60 70 80 90 100 1000000) /// 
	ti("(A) Share of Below HS", size(*1.2) position(6)) ///
	graphr(margin(medium)) ///
	osize(vvthin ...) ///
	legend(size(*1.2) ///
		order(2 "No Data" 3 "(40,50]" 4 "(50,60]" ///
			5 "(60,70]" 6 "(70,80]" 7 "(80,90]"  8 "(90,100]") ///
			ti(Unit: %, size(*0.5) pos(11) color(black)) color(black)) ///
	xsize(20) ysize(12.5) ///
	caption("Source：2000 Census", size(*0.8)) ///
	line(data("$workdata/citylevel_map/china_city_line_coord.dta") size(*0.5 ...) color(black) select(keep if _ID <= 6)) ///
	label(data("$workdata/citylevel_map/china_city_label.dta") x(X) y(Y) l(name) size(*0.8)) ///
	xsize(13) ysize(10)

graph export "$results/Fig. S8(A).pdf", as(pdf) name("Graph") replace

**# Bookmark #2.1 Fig. S8(B)
use "$outfile/Fig. S8.dta",clear
	  
grmap belowcl ///
	using "$workdata/citylevel_map/china_city_coord", id(ID) ///
	fcolor("150 150 150" "198 219 239" "158 202 225" "107 174 214" "33 113 181" "black") ///
	ocolor("gray" ...) ///
	clmethod(custom) clbreaks(-2 60 80 90 95 100 1000000) /// 
	ti("(B) Share of Below College", size(*1.2) position(6)) ///
	graphr(margin(medium)) ///
	osize(vvthin ...) ///
	legend(size(*1.2) ///
		order(2 "No Data" 3 "(60,80]" 4 "(80,90]" 5 "(90,95]"  6 "(95,100]") ///
			ti(Unit: %, size(*0.5) pos(11) color(black)) color(black)) ///
	xsize(20) ysize(12.5) ///
	caption("Source：2000 Census", size(*0.8)) ///
	line(data("$workdata/citylevel_map/china_city_line_coord.dta") size(*0.5 ...) color(black) select(keep if _ID <= 6)) ///
	label(data("$workdata/citylevel_map/china_city_label.dta") x(X) y(Y) l(name) size(*0.8)) ///
	xsize(13) ysize(10)

graph export "$results/Fig. S8(B).pdf", as(pdf) name("Graph") replace